home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGBLER / ASMCODE.LZH / SETANSI.ASM < prev    next >
Assembly Source File  |  1984-08-10  |  2KB  |  52 lines
  1. TITLE SETANSI.ASM - SET FUNCTION KEYS FOR ANSI.SYS DRIVER
  2. NAME SET_CODE
  3. PAGE 75,132
  4. ;
  5. SETUP    MACRO CMDLENGTH,COMMAND
  6.          MOV       CX,CMDLENGTH
  7.          MOV       DX,OFFSET COMMAND
  8.          MOV       AH,40H              ;FUNCTION='WRITE TO DEVICE'
  9.          CALL      DOSVECTOR           ;CALL TO DOS (FAR)
  10.          ENDM
  11. ;
  12. SET_CODE SEGMENT PARA PUBLIC 'CODE'
  13.          ASSUME    CS:SET_CODE,DS:SET_CODE
  14. ;
  15.          ORG       50H                 ;INT 21H - FAR RETURN
  16. DOS      LABEL     FAR                 ;DOS RETURN
  17.          ORG       100H                ;
  18. ENTPT:   JMP       SHORT START         ;START THE PROCESSOR
  19. STRING1  DB        27,'[0;68;"DIR/P B:";13p'
  20. STRSIZ1  EQU       $-STRING1
  21. STRING2  DB        27,'[0;67;"DIR/P A:";13p'
  22. STRSIZ2  EQU       $-STRING2
  23. STRING3  DB        27,'[0;66;"A:FIX B:";13p'
  24. STRSIZ3  EQU       $-STRING3
  25. STRING4  DB        27,'[0;65;"CD";13p'
  26. STRSIZ4  EQU       $-STRING4
  27. STRING5    DB    27,'[0;25;"A:PRINT";p'
  28. STRSIZ5    EQU    $-STRING5
  29. STRING6    DB    27,'[0;84;"A:CLOCK";13p'
  30. STRSIZ6    EQU    $-STRING6
  31. ;
  32. HANDLE   EQU       1                   ;PREDEFINED FILE HANDLE FOR OUTPUT
  33. ;
  34. DOSVECTOR LABEL    DWORD
  35. DOSOFF   DW        DOS
  36. DOSSEG   DW        0                   ;SEGMENT (TO BE FILLED)
  37. ;
  38. START    PROC      NEAR                ;
  39.          MOV       AX,CS               ;FIND WHERE THIS CODE IS
  40.          MOV       DOSSEG,AX           ;SET VECTOR WHEN FOUND
  41.          MOV       BX,HANDLE           ;SET THE FILE HANDLE FOR DRIVER SET
  42.          SETUP     STRSIZ1,STRING1
  43.          SETUP     STRSIZ2,STRING2
  44.          SETUP     STRSIZ3,STRING3
  45.          SETUP     STRSIZ4,STRING4
  46.     SETUP    STRSIZ5,STRING5
  47.     SETUP    STRSIZ6,STRING6
  48.          RET                           ;RETURN TO DISK OPER SYSTEM
  49. START    ENDP
  50. SET_CODE ENDS
  51.          END       ENTPT
  52.